home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_141_Assign Category.bin < prev    next >
Text File  |  1995-11-23  |  3KB  |  64 lines
  1. ItemType: WIND
  2. Rect: 160,247,480,455
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: Assign Category
  8. Params: i1_Text┬i0_TopLeft┬i3_SelectionText┬i2_Text┬i2_SelectionText
  9. Result: i3_TextOfSelection┬i2_TextOfSelection
  10.  
  11. ItemType: TEXT
  12. Rect: 5,1,317,17
  13. AutoSize: FALSE
  14. Name: Name
  15. TextAlign: Center
  16.  
  17. ItemType: LIST
  18. Rect: 68,79,288,165
  19. AutoSize: FALSE
  20. Name: theChoices
  21. Logic: Single
  22. DoubleClickItem: 4
  23. KeyScroll: TRUE
  24. Text: 
  25. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬wsSet wdID,"OK","Disabled", "false"┬--end mouseUp
  26.  
  27. ItemType: POP
  28. Rect: 131,53,223,71
  29. AutoSize: FALSE
  30. Name: Type
  31. Text: Asset┬Liability
  32. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬if objValue="asset" then┬  put (fld "catListA" of cd 1) into temp┬else┬  put (fld "catListL" of cd 1) into temp┬end if┬wsSet wdID,"theChoices","text",temp┬--end mouseUp┬
  33.  
  34. ItemType: PUSH
  35. Rect: 241,179,313,199
  36. Disabled: TRUE
  37. Name: OK
  38. DefaultItem: TRUE
  39. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"name","text")┬put it into namer┬get wsGet(wdID,"type","value")┬put it into typer┬get wsGet(wdID,"theChoices","selectionText")┬put it into category┬go cd namer┬put category into fld "category"┬put typer into fld "Type"┬wsSend wdID,0,"close"┬--end mouseUp┬
  40.  
  41. ItemType: PUSH
  42. Rect: 139,179,219,199
  43. Name: Cancel
  44. CancelItem: TRUE
  45. AutoClose: TRUE
  46.  
  47. ItemType: PUSH
  48. Rect: 3,179,120,199
  49. TextSize: 12
  50. Name: New Category
  51. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet("Assign Category","Type","value")┬put it into typer2┬put wsTopLeft(320,109) into TL2┬put windowScript ("New Category",typer2,TL2) into resulter┬unlock screen┬if line 1 of resulter = "closebox" then -- called from OK script┬  put line 3 of resulter into typerr┬  if typerr="asset" then┬    put (fld "catListA" of cd 1) into temp┬  else┬    put (fld "catListL" of cd 1) into temp┬  end if┬  wsSet "Assign Category", "Type", "SelectionText", typerr┬  wsSet "Assign Category", "theChoices", "text", temp┬end if┬--end mouseUp
  52.  
  53. ItemType: LBL
  54. Rect: 96,52,134,68
  55. Text: Type:
  56.  
  57. ItemType: TEXT
  58. Rect: 12,22,312,46
  59. TextFont: Geneva
  60. TextSize: 9
  61. Name: Instructions2
  62. TextAlign: Center
  63. Text: Choose the type (asset or liability) from the pop-up menu below, then click on the list below to choose a category for the detail.
  64. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet("Assign Category","Type","value")┬put it into typer2┬put wsTopLeft(320,109) into TL2┬put windowScript ("New Category",typer2,TL2) into resulter┬unlock screen┬if line 1 of resulter = "closebox" then -- via OK script┬  put line 3 of resulter into typerr┬  if typerr="asset" then┬    put (fld "catListA" of cd 1) into temp┬  else┬    put (fld "catListL" of cd 1) into temp┬  end if┬  wsSet "Assign Category","Type","SelectionText",typerr┬  wsSet "Assign Category","theChoices","text",temp┬end if┬--end mouseUp